home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / L-M / LogoMation 1.0.1 ƒ / Examples / Lib / Demo ask().lib < prev    next >
MacBinary  |  1992-10-12  |  3.9 KB  |  [UVtx/UVtl]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Demo ask().lib

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Sibelius Music / Score (music/sibeliusMusicScore) ext Unsupported
1% dexvert IntelliFont Font (font/intelliFont) ext Unsupported
1% dexvert Amiga Hunk Library/Object (other/amigaLibrary) ext Unsupported
1% dexvert Amiga Shared Library (other/amigaSharedLibrary) ext Unsupported
1% dexvert Chess Assistant File (other/chessAssistant) ext Unsupported
1% dexvert CODESYS Library (other/codesysLibrary) ext Unsupported
1% dexvert COFF Library (other/coffLibrary) ext Unsupported
1% dexvert P-CAD binary Library (other/pCADBinaryLibrary) ext Unsupported
1% dexvert Maple Library (other/mapleLibrary) ext Unsupported
1% dexvert TopSpeed Modula-2 Library (other/topSpeedModula2Library) ext Unsupported
100% file MacBinary II, inited, Sat Sep 19 18:56:56 1992, modified Sun Oct 11 20:35:37 1992, creator 'UVtl', type 'UVtx', 3356 bytes "Demo ask().lib" , at 0xd9c 286 bytes resource default (weak)
99% file data default
100% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[UVtx]
macFileCreator[UVtl]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 44 65 6d 6f 20 61 | 73 6b 28 29 2e 6c 69 62 |..Demo a|sk().lib|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 55 56 74 78 55 56 74 | 6c 01 00 00 00 00 00 00 |.UVtxUVt|l.......|
|00000050| 00 00 00 00 00 0d 1c 00 | 00 01 1e a6 e1 60 b8 a6 |........|.....`..|
|00000060| fe 78 d9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.x......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 56 f6 00 00 |........|....V...|
|00000080| 2f 2f 20 69 6e 69 74 44 | 65 62 75 67 20 61 6e 64 |// initD|ebug and|
|00000090| 20 70 72 69 6e 74 44 65 | 62 75 67 20 2d 20 64 65 | printDe|bug - de|
|000000a0| 62 75 67 20 61 69 64 73 | 0d 2f 2f 2f 2f 2f 2f 2f |bug aids|.///////|
|000000b0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000000c0| 2f 0d 46 75 6e 63 74 69 | 6f 6e 20 69 6e 69 74 44 |/.Functi|on initD|
|000000d0| 65 62 75 67 28 6f 6c 64 | 50 29 0d 20 20 20 20 6f |ebug(old|P). o|
|000000e0| 6c 64 50 20 3d 20 70 65 | 6e 4e 61 6d 65 28 29 0d |ldP = pe|nName().|
|000000f0| 20 20 20 20 50 65 6e 20 | 6e 61 6d 65 3d 22 64 65 | Pen |name="de|
|00000100| 62 75 67 22 0d 20 20 20 | 20 55 70 0d 20 20 20 20 |bug". | Up. |
|00000110| 47 6f 74 6f 20 2d 77 69 | 64 74 68 28 29 2f 32 20 |Goto -wi|dth()/2 |
|00000120| 2b 20 31 30 2c 20 68 65 | 69 67 68 74 28 29 2f 32 |+ 10, he|ight()/2|
|00000130| 20 2d 20 31 30 2c 20 2d | 39 30 0d 20 20 20 20 50 | - 10, -|90. P|
|00000140| 65 6e 20 66 6f 6e 74 73 | 69 7a 65 3d 31 30 0d 20 |en fonts|ize=10. |
|00000150| 20 20 20 50 65 6e 20 6e | 61 6d 65 3d 6f 6c 64 50 | Pen n|ame=oldP|
|00000160| 0d 46 75 6e 63 74 69 6f | 6e 20 70 72 69 6e 74 44 |.Functio|n printD|
|00000170| 65 62 75 67 28 73 2c 76 | 2c 6f 6c 64 50 29 0d 20 |ebug(s,v|,oldP). |
|00000180| 20 20 20 6f 6c 64 50 20 | 3d 20 70 65 6e 4e 61 6d | oldP |= penNam|
|00000190| 65 28 29 0d 20 20 20 20 | 50 65 6e 20 6e 61 6d 65 |e(). |Pen name|
|000001a0| 3d 22 64 65 62 75 67 22 | 0d 20 20 20 20 50 72 69 |="debug"|. Pri|
|000001b0| 6e 74 20 73 20 2e 20 22 | 20 3d 20 5c 22 22 20 2e |nt s . "| = \"" .|
|000001c0| 20 76 20 2e 20 22 5c 22 | 22 0d 20 20 20 20 46 6f | v . "\"|". Fo|
|000001d0| 72 77 61 72 64 20 31 31 | 0d 20 20 20 20 50 65 6e |rward 11|. Pen|
|000001e0| 20 6e 61 6d 65 3d 6f 6c | 64 50 0d 0d 2f 2f 20 67 | name=ol|dP..// g|
|000001f0| 65 74 4e 61 6d 65 20 2d | 20 70 72 6f 6d 70 74 20 |etName -| prompt |
|00000200| 74 68 65 20 75 73 65 72 | 20 66 6f 72 20 68 69 73 |the user| for his|
|00000210| 2f 68 65 72 20 6e 61 6d | 65 0d 2f 2f 2f 2f 2f 2f |/her nam|e.//////|
|00000220| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000230| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000240| 2f 2f 2f 2f 0d 46 75 6e | 63 74 69 6f 6e 20 67 65 |////.Fun|ction ge|
|00000250| 74 4e 61 6d 65 28 6e 29 | 0d 20 20 20 20 43 6c 65 |tName(n)|. Cle|
|00000260| 61 72 20 34 31 32 33 30 | 2c 36 32 32 37 35 2c 36 |ar 41230|,62275,6|
|00000270| 33 34 38 37 0d 20 20 20 | 20 43 6f 6c 6f 72 20 36 |3487. | Color 6|
|00000280| 35 30 30 30 2c 34 34 39 | 35 33 2c 35 39 31 30 0d |5000,449|53,5910.|
|00000290| 20 20 20 20 50 65 6e 20 | 66 6f 6e 74 73 69 7a 65 | Pen |fontsize|
|000002a0| 3d 31 34 0d 20 20 20 20 | 55 70 0d 20 20 20 20 47 |=14. |Up. G|
|000002b0| 6f 74 6f 20 2d 31 30 30 | 2c 30 2c 30 0d 20 20 20 |oto -100|,0,0. |
|000002c0| 20 44 6f 77 6e 0d 20 20 | 20 20 50 72 69 6e 74 20 | Down. | Print |
|000002d0| 22 59 6f 75 72 20 6e 61 | 6d 65 2c 20 70 6c 65 61 |"Your na|me, plea|
|000002e0| 73 65 3a 20 22 2c 6d 6f | 76 65 0d 20 20 20 20 46 |se: ",mo|ve. F|
|000002f0| 6f 72 77 61 72 64 20 31 | 30 30 0d 20 20 20 20 42 |orward 1|00. B|
|00000300| 61 63 6b 77 61 72 64 20 | 31 30 30 0d 20 20 20 20 |ackward |100. |
|00000310| 50 65 6e 20 66 6f 6e 74 | 6e 61 6d 65 3d 22 54 69 |Pen font|name="Ti|
|00000320| 6d 65 73 22 2c 20 66 6f | 6e 74 73 69 7a 65 3d 31 |mes", fo|ntsize=1|
|00000330| 34 0d 20 20 20 20 43 6f | 6c 6f 72 20 36 35 35 33 |4. Co|lor 6553|
|00000340| 35 2c 31 32 38 36 36 2c | 39 37 33 34 0d 20 20 20 |5,12866,|9734. |
|00000350| 20 6e 20 3d 20 61 73 6b | 28 31 30 35 29 0d 20 20 | n = ask|(105). |
|00000360| 20 20 49 66 20 28 6e 20 | 3d 20 22 22 29 20 20 20 | If (n |= "") |
|00000370| 20 20 20 20 20 2f 2f 20 | 65 72 72 6f 72 20 69 66 | // |error if|
|00000380| 20 74 68 65 20 6e 61 6d | 65 20 69 73 20 6e 75 6c | the nam|e is nul|
|00000390| 6c 0d 20 20 20 20 20 20 | 20 20 53 6f 75 6e 64 20 |l. | Sound |
|000003a0| 22 42 6f 69 6e 67 22 0d | 20 20 20 20 20 20 20 20 |"Boing".| |
|000003b0| 75 70 0d 20 20 20 20 20 | 20 20 20 67 6f 20 78 28 |up. | go x(|
|000003c0| 29 2d 31 32 30 2c 20 79 | 28 29 2d 31 32 30 2c 20 |)-120, y|()-120, |
|000003d0| 30 0d 20 20 20 20 20 20 | 20 20 70 72 20 22 52 75 |0. | pr "Ru|
|000003e0| 6e 20 61 67 61 69 6e 2c | 20 70 6c 65 61 73 65 2e |n again,| please.|
|000003f0| 2e 2e 22 0d 20 20 20 20 | 20 20 20 20 48 61 6c 74 |..". | Halt|
|00000400| 0d 20 20 20 20 75 70 0d | 20 20 20 20 67 6f 20 78 |. up.| go x|
|00000410| 28 29 2d 31 32 30 2c 20 | 79 28 29 2d 31 32 30 2c |()-120, |y()-120,|
|00000420| 20 30 0d 20 20 20 20 70 | 72 20 22 50 4c 45 41 53 | 0. p|r "PLEAS|
|00000430| 45 20 57 41 49 54 2e 2e | 2e 22 0d 20 20 20 20 52 |E WAIT..|.". R|
|00000440| 65 74 75 72 6e 20 6e 0d | 0d 2f 2f 20 6d 61 6b 65 |eturn n.|.// make|
|00000450| 50 69 63 74 75 72 65 73 | 20 2d 20 63 72 65 61 74 |Pictures| - creat|
|00000460| 65 20 61 20 70 69 63 74 | 75 72 65 73 20 66 6f 72 |e a pict|ures for|
|00000470| 20 65 61 63 68 20 6c 65 | 74 74 65 72 20 6f 66 20 | each le|tter of |
|00000480| 74 68 65 20 6e 61 6d 65 | 0d 2f 2f 2f 2f 2f 2f 2f |the name|.///////|
|00000490| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000004a0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000004b0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000004c0| 2f 2f 0d 46 75 6e 63 74 | 69 6f 6e 20 6d 61 6b 65 |//.Funct|ion make|
|000004d0| 50 69 63 74 75 72 65 73 | 28 74 68 65 4e 61 6d 65 |Pictures|(theName|
|000004e0| 2c 20 69 2c 20 63 2c 20 | 72 2c 20 67 2c 20 62 29 |, i, c, |r, g, b)|
|000004f0| 0d 20 20 20 20 52 65 70 | 65 61 74 20 69 2c 20 30 |. Rep|eat i, 0|
|00000500| 2c 20 6c 65 6e 67 74 68 | 28 74 68 65 4e 61 6d 65 |, length|(theName|
|00000510| 29 2d 31 2c 20 31 0d 20 | 20 20 20 20 20 20 20 63 |)-1, 1. | c|
|00000520| 20 3d 20 73 75 62 73 74 | 72 28 74 68 65 4e 61 6d | = subst|r(theNam|
|00000530| 65 2c 20 69 2c 20 31 29 | 0d 20 20 20 20 20 20 20 |e, i, 1)|. |
|00000540| 20 72 20 3d 20 33 30 30 | 30 30 2b 72 61 6e 64 6f | r = 300|00+rando|
|00000550| 6d 28 33 30 30 30 30 29 | 0d 20 20 20 20 20 20 20 |m(30000)|. |
|00000560| 20 67 20 3d 20 33 30 30 | 30 30 2b 72 61 6e 64 6f | g = 300|00+rando|
|00000570| 6d 28 33 30 30 30 30 29 | 0d 20 20 20 20 20 20 20 |m(30000)|. |
|00000580| 20 62 20 3d 20 33 30 30 | 30 30 2b 72 61 6e 64 6f | b = 300|00+rando|
|00000590| 6d 28 33 30 30 30 30 29 | 0d 20 20 20 20 20 20 20 |m(30000)|. |
|000005a0| 20 50 69 63 74 75 72 65 | 20 63 0d 20 20 20 20 20 | Picture| c. |
|000005b0| 20 20 20 20 20 20 20 43 | 6f 6c 6f 72 20 72 2c 67 | C|olor r,g|
|000005c0| 2c 62 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |,b. | P|
|000005d0| 65 6e 20 66 6f 6e 74 6e | 61 6d 65 3d 22 47 65 6e |en fontn|ame="Gen|
|000005e0| 65 76 61 22 2c 66 6f 6e | 74 73 74 79 6c 65 3d 22 |eva",fon|tstyle="|
|000005f0| 42 6f 6c 64 22 2c 66 6f | 6e 74 73 69 7a 65 3d 31 |Bold",fo|ntsize=1|
|00000600| 34 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4. | |
|00000610| 20 20 50 72 69 6e 74 20 | 63 0d 0d 2f 2f 20 63 6f | Print |c..// co|
|00000620| 6d 70 53 74 61 72 74 50 | 6f 73 20 2d 20 63 6f 6d |mpStartP|os - com|
|00000630| 70 75 74 65 20 74 68 65 | 20 73 74 61 72 74 20 78 |pute the| start x|
|00000640| 2c 79 20 6f 66 20 65 61 | 63 68 20 6c 65 74 74 65 |,y of ea|ch lette|
|00000650| 72 0d 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |r.//////|////////|
|00000660| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000670| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000680| 2f 2f 2f 0d 46 75 6e 63 | 74 69 6f 6e 20 63 6f 6d |///.Func|tion com|
|00000690| 70 53 74 61 72 74 50 6f | 73 28 74 68 65 4e 61 6d |pStartPo|s(theNam|
|000006a0| 65 2c 20 69 29 0d 20 20 | 20 20 52 65 70 65 61 74 |e, i). | Repeat|
|000006b0| 20 69 2c 20 30 2c 20 6c | 65 6e 67 74 68 28 74 68 | i, 0, l|ength(th|
|000006c0| 65 4e 61 6d 65 29 2d 31 | 2c 20 31 0d 20 20 20 20 |eName)-1|, 1. |
|000006d0| 20 20 20 20 73 74 61 72 | 74 58 5b 69 5d 20 3d 20 | star|tX[i] = |
|000006e0| 72 61 6e 64 6f 6d 28 77 | 69 64 74 68 28 29 2d 32 |random(w|idth()-2|
|000006f0| 30 29 20 2d 20 77 69 64 | 74 68 28 29 2f 32 0d 20 |0) - wid|th()/2. |
|00000700| 20 20 20 20 20 20 20 73 | 74 61 72 74 59 5b 69 5d | s|tartY[i]|
|00000710| 20 3d 20 72 61 6e 64 6f | 6d 28 68 65 69 67 68 74 | = rando|m(height|
|00000720| 28 29 2d 32 30 29 20 2d | 20 68 65 69 67 68 74 28 |()-20) -| height(|
|00000730| 29 2f 32 0d 0d 2f 2f 20 | 63 6f 6d 70 45 6e 64 50 |)/2..// |compEndP|
|00000740| 6f 69 6e 74 73 20 2d 20 | 63 6f 6d 70 75 74 65 20 |oints - |compute |
|00000750| 74 68 65 20 65 6e 64 20 | 78 20 6f 66 20 74 68 65 |the end |x of the|
|00000760| 20 6e 61 6d 65 27 73 20 | 61 6e 69 6d 61 74 69 6f | name's |animatio|
|00000770| 6e 0d 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |n.//////|////////|
|00000780| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000790| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000007a0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 0d 46 75 6e |////////|////.Fun|
|000007b0| 63 74 69 6f 6e 20 63 6f | 6d 70 45 6e 64 50 6f 69 |ction co|mpEndPoi|
|000007c0| 6e 74 73 28 74 68 65 4e | 61 6d 65 2c 20 69 29 0d |nts(theN|ame, i).|
|000007d0| 20 20 20 20 50 65 6e 20 | 66 6f 6e 74 6e 61 6d 65 | Pen |fontname|
|000007e0| 3d 22 47 65 6e 65 76 61 | 22 2c 66 6f 6e 74 73 74 |="Geneva|",fontst|
|000007f0| 79 6c 65 3d 22 42 6f 6c | 64 22 2c 66 6f 6e 74 73 |yle="Bol|d",fonts|
|00000800| 69 7a 65 3d 31 34 0d 20 | 20 20 20 52 65 70 65 61 |ize=14. | Repea|
|00000810| 74 20 69 2c 20 30 2c 20 | 6c 65 6e 67 74 68 28 74 |t i, 0, |length(t|
|00000820| 68 65 4e 61 6d 65 29 2d | 31 2c 20 31 0d 20 20 20 |heName)-|1, 1. |
|00000830| 20 20 20 20 20 65 6e 64 | 58 5b 69 5d 20 3d 20 73 | end|X[i] = s|
|00000840| 57 69 64 74 68 28 73 75 | 62 73 74 72 28 74 68 65 |Width(su|bstr(the|
|00000850| 4e 61 6d 65 2c 20 30 2c | 20 69 29 29 0d 0d 2f 2f |Name, 0,| i))..//|
|00000860| 20 63 6f 6d 70 50 65 6e | 73 20 2d 20 63 6f 6d 70 | compPen|s - comp|
|00000870| 75 74 65 20 74 68 65 20 | 70 65 6e 73 20 66 6f 72 |ute the |pens for|
|00000880| 20 74 68 65 20 6c 65 74 | 74 65 72 73 27 20 61 6e | the let|ters' an|
|00000890| 69 6d 61 74 69 6f 6e 0d | 2f 2f 2f 2f 2f 2f 2f 2f |imation.|////////|
|000008a0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000008b0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|000008c0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 0d 46 75 |////////|/////.Fu|
|000008d0| 6e 63 74 69 6f 6e 20 63 | 6f 6d 70 50 65 6e 73 28 |nction c|ompPens(|
|000008e0| 74 68 65 4e 61 6d 65 2c | 20 69 2c 20 64 58 2c 20 |theName,| i, dX, |
|000008f0| 63 29 0d 20 20 20 20 52 | 65 70 65 61 74 20 69 2c |c). R|epeat i,|
|00000900| 20 30 2c 20 6c 65 6e 67 | 74 68 28 74 68 65 4e 61 | 0, leng|th(theNa|
|00000910| 6d 65 29 2d 31 2c 20 31 | 0d 20 20 20 20 20 20 20 |me)-1, 1|. |
|00000920| 20 64 58 20 3d 20 73 74 | 61 72 74 58 5b 69 5d 20 | dX = st|artX[i] |
|00000930| 2d 20 65 6e 64 58 5b 69 | 5d 0d 20 20 20 20 20 20 |- endX[i|]. |
|00000940| 20 20 6c 65 6e 5b 69 5d | 20 3d 20 73 71 72 74 28 | len[i]| = sqrt(|
|00000950| 20 64 58 2a 64 58 20 2b | 20 73 74 61 72 74 59 5b | dX*dX +| startY[|
|00000960| 69 5d 2a 73 74 61 72 74 | 59 5b 69 5d 20 29 0d 20 |i]*start|Y[i] ). |
|00000970| 20 20 20 20 20 20 20 73 | 74 65 70 5b 69 5d 20 3d | s|tep[i] =|
|00000980| 20 6c 65 6e 5b 69 5d 2f | 32 30 0d 20 20 20 20 20 | len[i]/|20. |
|00000990| 20 20 20 63 20 3d 20 73 | 75 62 73 74 72 28 74 68 | c = s|ubstr(th|
|000009a0| 65 4e 61 6d 65 2c 20 69 | 2c 20 31 29 0d 20 20 20 |eName, i|, 1). |
|000009b0| 20 20 20 20 20 50 65 6e | 20 6e 61 6d 65 3d 69 2c | Pen| name=i,|
|000009c0| 20 73 70 65 65 64 3d 6c | 65 6e 5b 69 5d 2c 20 65 | speed=l|en[i], e|
|000009d0| 6e 64 3d 22 6e 6f 22 2c | 20 70 69 63 74 75 72 65 |nd="no",| picture|
|000009e0| 3d 63 0d 20 20 20 20 20 | 20 20 20 55 70 0d 20 20 |=c. | Up. |
|000009f0| 20 20 20 20 20 20 47 6f | 74 6f 20 73 74 61 72 74 | Go|to start|
|00000a00| 58 5b 69 5d 2c 20 73 74 | 61 72 74 59 5b 69 5d 2c |X[i], st|artY[i],|
|00000a10| 20 61 74 61 6e 32 28 73 | 74 61 72 74 59 5b 69 5d | atan2(s|tartY[i]|
|00000a20| 2c 64 58 29 2d 31 38 30 | 0d 20 20 20 20 20 20 20 |,dX)-180|. |
|00000a30| 20 44 6f 77 6e 0d 0d 2f | 2f 20 4d 6f 76 65 54 68 | Down../|/ MoveTh|
|00000a40| 65 6d 41 6c 6c 20 2d 20 | 6d 6f 76 65 20 61 6c 6c |emAll - |move all|
|00000a50| 20 74 68 65 20 6c 65 74 | 74 65 72 73 20 74 6f 67 | the let|ters tog|
|00000a60| 65 74 68 65 72 0d 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |ether.//|////////|
|00000a70| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000a80| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000a90| 2f 0d 46 75 6e 63 74 69 | 6f 6e 20 4d 6f 76 65 54 |/.Functi|on MoveT|
|00000aa0| 68 65 6d 41 6c 6c 28 6d | 79 4e 61 6d 65 29 0d 20 |hemAll(m|yName). |
|00000ab0| 20 20 20 74 72 61 69 6c | 4d 6f 64 65 20 3d 20 22 | trail|Mode = "|
|00000ac0| 79 65 73 22 0d 20 20 20 | 20 52 65 70 65 61 74 20 |yes". | Repeat |
|00000ad0| 69 2c 20 31 2c 20 32 30 | 2c 20 31 0d 20 20 20 20 |i, 1, 20|, 1. |
|00000ae0| 20 20 20 20 49 66 20 69 | 20 3e 20 31 39 0d 20 20 | If i| > 19. |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 74 72 61 69 6c 4d | | trailM|
|00000b00| 6f 64 65 3d 22 6e 6f 22 | 0d 20 20 20 20 20 20 20 |ode="no"|. |
|00000b10| 20 20 20 20 20 50 65 6e | 20 6e 61 6d 65 3d 22 22 | Pen| name=""|
|00000b20| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 55 70 0d |. | Up.|
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 47 6f 74 6f | | Goto|
|00000b40| 20 30 2c 2d 73 44 65 73 | 63 65 6e 74 28 29 2d 31 | 0,-sDes|cent()-1|
|00000b50| 2c 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |,0. | D|
|00000b60| 6f 77 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |own. | |
|00000b70| 46 69 6c 6c 20 31 2c 36 | 35 35 33 35 2c 36 35 35 |Fill 1,6|5535,655|
|00000b80| 33 35 2c 36 35 35 33 35 | 0d 20 20 20 20 20 20 20 |35,65535|. |
|00000b90| 20 20 20 20 20 20 20 20 | 20 52 65 70 65 61 74 20 | | Repeat |
|00000ba0| 32 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2. | |
|00000bb0| 20 20 20 20 20 20 46 6f | 72 77 61 72 64 20 73 57 | Fo|rward sW|
|00000bc0| 69 64 74 68 28 6d 79 4e | 61 6d 65 29 0d 20 20 20 |idth(myN|ame). |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000be0| 20 4c 65 66 74 20 39 30 | 0d 20 20 20 20 20 20 20 | Left 90|. |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 6f 72 | | For|
|00000c00| 77 61 72 64 20 73 44 65 | 73 63 65 6e 74 28 29 2b |ward sDe|scent()+|
|00000c10| 73 41 73 63 65 6e 74 28 | 29 2b 34 0d 20 20 20 20 |sAscent(|)+4. |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c30| 4c 65 66 74 20 39 30 0d | 20 20 20 20 20 20 20 20 |Left 90.| |
|00000c40| 2f 2f 53 6f 75 6e 64 20 | 22 50 6f 70 22 0d 20 20 |//Sound |"Pop". |
|00000c50| 20 20 20 20 20 20 52 65 | 70 65 61 74 20 63 2c 20 | Re|peat c, |
|00000c60| 30 2c 20 6c 65 6e 67 74 | 68 28 6d 79 4e 61 6d 65 |0, lengt|h(myName|
|00000c70| 29 2d 31 2c 20 31 0d 20 | 20 20 20 20 20 20 20 20 |)-1, 1. | |
|00000c80| 20 20 20 50 65 6e 20 6e | 61 6d 65 3d 63 2c 20 74 | Pen n|ame=c, t|
|00000c90| 72 61 69 6c 3d 74 72 61 | 69 6c 4d 6f 64 65 2c 20 |rail=tra|ilMode, |
|00000ca0| 65 6e 64 3d 22 79 65 73 | 22 0d 20 20 20 20 20 20 |end="yes|". |
|00000cb0| 20 20 20 20 20 20 46 6f | 72 77 61 72 64 20 73 74 | Fo|rward st|
|00000cc0| 65 70 5b 63 5d 0d 0d 2f | 2f 20 4d 6f 76 65 54 68 |ep[c]../|/ MoveTh|
|00000cd0| 65 6d 4f 6e 65 42 79 4f | 6e 65 20 2d 20 6d 6f 76 |emOneByO|ne - mov|
|00000ce0| 65 20 6f 6e 65 20 62 79 | 20 6f 6e 65 0d 2f 2f 2f |e one by| one.///|
|00000cf0| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000d00| 2f 2f 2f 2f 2f 2f 2f 2f | 2f 2f 2f 2f 2f 2f 2f 2f |////////|////////|
|00000d10| 2f 2f 0d 46 75 6e 63 74 | 69 6f 6e 20 4d 6f 76 65 |//.Funct|ion Move|
|00000d20| 54 68 65 6d 4f 6e 65 42 | 79 4f 6e 65 28 6d 79 4e |ThemOneB|yOne(myN|
|00000d30| 61 6d 65 29 0d 20 20 20 | 20 52 65 70 65 61 74 20 |ame). | Repeat |
|00000d40| 63 2c 20 30 2c 20 6c 65 | 6e 67 74 68 28 6d 79 4e |c, 0, le|ngth(myN|
|00000d50| 61 6d 65 29 2d 31 2c 20 | 31 0d 20 20 20 20 20 20 |ame)-1, |1. |
|00000d60| 20 20 50 65 6e 20 6e 61 | 6d 65 3d 63 2c 20 74 72 | Pen na|me=c, tr|
|00000d70| 61 69 6c 3d 22 79 65 73 | 22 2c 20 65 6e 64 3d 22 |ail="yes|", end="|
|00000d80| 79 65 73 22 0d 20 20 20 | 20 20 20 20 20 46 6f 72 |yes". | For|
|00000d90| 77 61 72 64 20 6c 65 6e | 5b 63 5d 0d 00 00 00 00 |ward len|[c].....|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000e10| 3a 3c 04 00 0c 06 00 01 | 66 0c 02 47 07 ff ba 47 |:<......|f..G...G|
|00000e20| 6e 04 3e 3c a8 9f 42 a7 | 3f 07 1f 06 4e ad 21 9a |n.><..B.|?...N.!.|
|00000e30| 0e 44 65 6d 6f 20 61 73 | 6b 28 29 2e 6c 69 62 44 |.Demo as|k().libD|
|00000e40| 02 00 00 00 55 56 74 78 | 55 56 74 6c 00 00 00 00 |....UVtx|UVtl....|
|00000e50| 00 00 55 56 74 78 55 56 | 74 6c 00 00 00 00 00 00 |..UVtxUV|tl......|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 a6 e1 60 b8 00 00 | 0d 1c 00 00 01 1e ff 4a |....`...|.......J|
|00000e80| 4e 5e 4e 75 57 4e 45 49 | 73 49 6d 70 4e 56 00 00 |N^NuWNEI|sImpNV..|
|00000e90| 3f 3c a8 8f 4e ba ff 32 | 4e 5e 4e 75 54 65 6d 70 |?<..N..2|N^NuTemp|
|00000ea0| 4d 65 6d 43 4e 56 ff f0 | 42 67 3f 3c 00 01 48 6e |MemCNV..|Bg?<..Hn|
|00000eb0| ff f0 4e ad 21 82 10 2e | ff f9 4e 5e 4e 75 43 6f |..N.!...|..N^NuCo|
|00000ec0| 6c 6f 72 51 44 49 3f 3c | a0 bd 4e ba fe fc 54 8f |lorQDI?<|..N...T.|
|00000ed0| 4a 00 67 02 a0 bd 4e 75 | 00 00 6b 68 12 d0 01 02 |J.g...Nu|..kh....|
|00000ee0| 4e 56 00 00 2f 0c 28 6e | 00 08 2b 4c da 54 20 54 |NV../.(n|..+L.T T|
|00000ef0| 42 68 00 22 2f 0c 4e ad | 19 82 2e ae 00 16 2f 2e |Bh."/.N.|....../.|
|00000f00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+